home *** CD-ROM | disk | FTP | other *** search
- /*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved. The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- */
-
- #ifndef lint
- static char *sccsid = "@(#)ex_tty.c 7.11 (Berkeley) 3/9/87; 1.2 (Bellcore) 87/04/24";
- #endif not lint
-
- #include "ex.h"
- #include "ex_tty.h"
-
- /*
- * Terminal type initialization routines,
- * and calculation of flags at entry or after
- * a shell escape which may change them.
- */
- /* short ospeed = -1; mjm: def also in tputs.c of termcap.a */
-
- gettmode()
- {
-
- #ifndef USG3TTY
- if (gtty(1, &tty) < 0)
- return;
- if (ospeed != tty.sg_ospeed)
- value(SLOWOPEN) = tty.sg_ospeed < B1200;
- ospeed = tty.sg_ospeed;
- normf = tty.sg_flags;
- UPPERCASE = (tty.sg_flags & LCASE) != 0;
- GT = (tty.sg_flags & XTABS) != XTABS && !XT;
- NONL = (tty.sg_flags & CRMOD) == 0;
- #else
- if (ioctl(1, TCGETA, (char *) &tty) < 0)
- return;
- if (ospeed != (tty.c_cflag & CBAUD)) /* mjm */
- value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200;
- ospeed = tty.c_cflag & CBAUD;
- normf = tty;
- UPPERCASE = (tty.c_iflag & IUCLC) != 0;
- GT = (tty.c_oflag & TABDLY) != TAB3 && !XT;
- NONL = (tty.c_oflag & ONLCR) == 0;
- #endif
- }
-
- char *xPC;
- char **sstrs[] = {
- &AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &CS, &DC, &DL, &DM, &DO,
- &ED, &EI, &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9,
- &HO, &IC, &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU, &LL, &ND, &xNL,
- &xPC, &RC, &SC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE,
- &AL_PARM, &DL_PARM, &UP_PARM, &DOWN_PARM, &LEFT_PARM, &RIGHT_PARM
- };
- bool *sflags[] = {
- &AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL,
- &XB, &XN, &XT, &XX
- };
- char **fkeys[10] = {
- &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9
- };
- setterm(type)
- char *type;
- {
- char *tgoto();
- register int unknown;
- char ltcbuf[TCBUFSIZE];
-
- if (type[0] == 0)
- type = "xx";
- unknown = 0;
- putpad(TE);
- if (tgetent(ltcbuf, type) != 1) {
- unknown++;
- CP(ltcbuf, "xx|dumb:");
- }
- setsize();
- aoftspace = tspace;
- zap();
- /*
- * Initialize keypad arrow keys.
- */
- arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up";
- arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down";
- arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left";
- arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right";
- arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home";
-
- /*
- * Handle funny termcap capabilities
- */
- if (CS && SC && RC) {
- if (AL==NULL) AL="";
- if (DL==NULL) DL="";
- }
- if (AL_PARM && AL==NULL) AL="";
- if (DL_PARM && DL==NULL) DL="";
- if (IC && IM==NULL) IM="";
- if (IC && EI==NULL) EI="";
- if (!GT) BT=NULL; /* If we can't tab, we can't backtab either */
-
- #ifdef TIOCLGET
- /*
- * Now map users susp char to ^Z, being careful that the susp
- * overrides any arrow key, but only for hackers (=new tty driver).
- */
- {
- static char sc[2];
- int i;
-
- ioctl(0, TIOCGETD, (char *) &ldisc);
- if (ldisc == NTTYDISC) {
- sc[0] = olttyc.t_suspc;
- sc[1] = 0;
- if (olttyc.t_suspc == CTRL(z)) {
- for (i=0; i<=4; i++)
- if (arrows[i].cap &&
- arrows[i].cap[0] == CTRL(z))
- addmac(sc, (char *) NULL,
- (char *) NULL, arrows);
- } else
- addmac(sc, "\32", "susp", arrows);
- }
- }
- #endif
-
- if (tgoto(CM, 2, 2)[0] == 'O') /* OOPS */
- CA = 0, CM = 0;
- else
- CA = 1, costCM = cost(tgoto(CM, 8, 10));
- costSR = cost(SR);
- costAL = cost(AL);
- costDP = cost(tgoto(DOWN_PARM, 10, 10));
- costLP = cost(tgoto(LEFT_PARM, 10, 10));
- costRP = cost(tgoto(RIGHT_PARM, 10, 10));
- PC = xPC ? xPC[0] : 0;
- aoftspace = tspace;
- CP(ttytype, longname(ltcbuf, type));
- /* proper strings to change tty type */
- termreset();
- gettmode();
- value(REDRAW) = AL && DL;
- value(OPTIMIZE) = !CA && !GT;
- if (ospeed == B1200 && !value(REDRAW))
- value(SLOWOPEN) = 1; /* see also gettmode above */
- if (unknown)
- serror("%s: Unknown terminal type", type);
- }
-
- setsize()
- {
- register int l, i;
- char *getenv();
-
- if (strcmp(getenv("TERM"),"mgr") == 0) { /* special MGR code */
- int in = open("/dev/tty",0);
- int out = open("/dev/tty",1);
- char buff[20];
- char *index();
-
- ex_sTTY(out);
- if (options[FONT].ovalue != options[FONT].odefault) {
- sprintf(buff,"\033%dF",options[FONT].ovalue);
- write(out,buff,strlen(buff));
- }
- write(out,"\0332I",3);
- read(in,buff,80);
- COLUMNS = atoi(buff);
- i = LINES = atoi(index(buff,' ')+1);
- close(in);
- close(out);
- }
- else { /* normal terminal */
- #ifdef TIOCGWINSZ
- struct winsize win;
-
- if (ioctl(0, TIOCGWINSZ, (char *) &win) < 0) {
- #endif
- i = LINES = tgetnum("li");
- COLUMNS = tgetnum("co");
- #ifdef TIOCGWINSZ
- } else {
- if ((LINES = winsz.ws_row = win.ws_row) == 0)
- LINES = tgetnum("li");
- i = LINES;
- if ((COLUMNS = winsz.ws_col = win.ws_col) == 0)
- COLUMNS = tgetnum("co");
- }
- #endif
- }
- if (LINES <= 5)
- LINES = 24;
- if (LINES > TUBELINES)
- LINES = TUBELINES;
- l = LINES;
- if (ospeed < B1200)
- l = 9; /* including the message line at the bottom */
- else if (ospeed < B2400)
- l = 17;
- if (l > LINES)
- l = LINES;
- if (COLUMNS <= 4)
- COLUMNS = 1000;
- options[WINDOW].ovalue = options[WINDOW].odefault = l - 1;
- if (defwind) options[WINDOW].ovalue = defwind;
- options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2);
- if (i <= 0)
- LINES = 2;
- }
-
- zap()
- {
- register char *namp;
- register bool **fp;
- register char ***sp;
-
- namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";
- fp = sflags;
- do {
- *(*fp++) = tgetflag(namp);
- namp += 2;
- } while (*namp);
- namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcrcscsesfsosrtatetiupvbvsveALDLUPDOLERI";
- sp = sstrs;
- do {
- *(*sp++) = tgetstr(namp, &aoftspace);
- namp += 2;
- } while (*namp);
- }
-
- char *
- longname(bp, def)
- register char *bp;
- char *def;
- {
- register char *cp;
-
- while (*bp && *bp != ':' && *bp != '|')
- bp++;
- if (*bp == '|') {
- bp++;
- cp = bp;
- while (*cp && *cp != ':' && *cp != '|')
- cp++;
- *cp = 0;
- return (bp);
- }
- return (def);
- }
-
- char *
- fkey(i)
- int i;
- {
- if (0 <= i && i <= 9)
- return(*fkeys[i]);
- else
- return(NOSTR);
- }
-
- /*
- * cost figures out how much (in characters) it costs to send the string
- * str to the terminal. It takes into account padding information, as
- * much as it can, for a typical case. (Right now the typical case assumes
- * the number of lines affected is the size of the screen, since this is
- * mainly used to decide if AL or SR is better, and this always happens
- * at the top of the screen. We assume cursor motion (CM) has little
- * padding, if any, required, so that case, which is really more important
- * than AL vs SR, won't be really affected.)
- */
- static int costnum;
- cost(str)
- char *str;
- {
- int countnum();
-
- if (str == NULL || *str=='O') /* OOPS */
- return 10000; /* infinity */
- costnum = 0;
- tputs(str, LINES, countnum);
- return costnum;
- }
-
- /* ARGSUSED */
- countnum(ch)
- char ch;
- {
- costnum++;
- }
-